home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 September / 64er_Magazin_94-09_1994_Markt__Technik_de_Side_A.d64 / tier raten.kurs3 (.txt) < prev   
Encoding:
Commodore BASIC  |  1994-01-01  |  3.1 KB  |  127 lines
  1. 10 rem  ******************************
  2. 20 rem  *        tiere raten         *
  3. 30 rem  ******************************
  4. 40 :
  5. 50 :
  6. 60 rem" [166][166][166][166][166][166][166][166][166] listing 3 [166][166][166][166][166][166][166][166][166][166]
  7. 70 :
  8. 75 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  9. 76 rem" [194]      vorgaben (100)        [194]
  10. 77 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  11. 80 :
  12. 100 dim w$(200)
  13. 110 w$(0) = "0"
  14. 170 :
  15. 180 rem" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  16. 181 [143]" peek    liste laden (200)      peek
  17. 182 rem" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  18. 190 :
  19. 200 [159] 1,8,2, "tierliste,s,r"
  20. 210 [132]1, w$(0)
  21. 220 [129] z [178] 1 [164] ([197](w$(0))[171]1)
  22. 230 : [132]1, w$(z)
  23. 240 [130] z
  24. 250 [160] 1
  25. 270 :
  26. 280 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  27. 281 rem" [194]        start (300)        [194]
  28. 282 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  29. 290 :
  30. 300 m = 1
  31. 310 print "denke dir bitte ein tier aus, das ich" chr$(13) "erraten muss."
  32. 320 input "bist du bereit (ja/nein) "; a$
  33. 330 if left$(a$,1) <> "j" then 320
  34. 340 if w$(0) <> "0" then 400
  35. 350 print "ich kenne noch kein tier"chr$(13)"an welches tier hast du gedacht"
  36. 360 input t$
  37. 370 w$(0) = "2"
  38. 380 w$(1) = "r " + t$
  39. 390 goto 970
  40. 393 :
  41. 394 rem" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  42. 396 [143]" peek     u oder r ? (400)      peek
  43. 397 rem" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  44. 398 :
  45. 400 [139] [200] (w$(m),1) [178] "u" [167] 500
  46. 410 [139] [200] (w$(m),1) [178] "r" [167] 700
  47. 470 :
  48. 480 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  49. 481 rem" [194] unterschieds-frage (500)  [194]
  50. 482 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  51. 490 :
  52. 500 u$ = w$(m)
  53. 510 for z = 3 to len (u$)
  54. 520 : if mid$ (u$,z,1) = "*" then 550
  55. 530 : print mid$ (u$,z,1);
  56. 540 next z
  57. 550 input " (ja/nein)"; a$
  58. 560 if left$ (a$,1) <> "j" and left$ (a$,1) <> "n" then 510
  59. 570 :
  60. 580 rem" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  61. 581 [143]" peek    markierung (600)       peek
  62. 582 rem" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  63. 590 :
  64. 600 [129] z [178] 3 [164] [195](u$)
  65. 610 : [139] [202] (u$,z,2) [178] "*" [170] [200] (a$,1) [167] 630
  66. 620 [130] z
  67. 630 m [178] [197]([202](u$,z[170]2))
  68. 640 [137] 400
  69. 670 :
  70. 680 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  71. 681 rem" [194]    rate-frage (700)       [194]
  72. 682 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  73. 690 :
  74. 700 print "heisst es "; mid$ (w$(m),3);
  75. 710 input " (ja/nein)"; a$
  76. 720 if left$ (a$,1) <> "j" and left$ (a$,1) <> "n" then 700
  77. 730 if left$ (a$,1) = "j" then 1100
  78. 770 :
  79. 780 rem" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  80. 781 [143]" peek      lernen (800)         peek
  81. 782 rem" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  82. 790 :
  83. 800 [153] "wie heisst das von dir ausgedachte tier"
  84. 810 [133] t$
  85. 820 [139] t$ [178] "" [167] 810
  86. 830 [153] "gib mir eine frage, die den unterschied"
  87. 840 [153] "zwischen "; t$; " und "; [202] (w$(m),3); " beschreibt"
  88. 850 [133] f$
  89. 860 [139] f$ [178] "" [167] 830
  90. 870 [153] "fuer "; t$; " waere die antwort (ja/nein) ";
  91. 880 [133] a$
  92. 890 [139] [200] (a$,1) [179][177] "j" [175] [200] (a$,1) [179][177] "n" [167] 870
  93. 894 :
  94. 895 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  95. 896 rem" [194]   platzwechsel (900)      [194]
  96. 897 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  97. 898 :
  98. 900 if left$ (a$,1) = "j" then b$ = "n"
  99. 910 if left$ (a$,1) = "n" then b$ = "j"
  100. 920 w = val(w$(0))
  101. 930 w$(w) = w$(m)
  102. 940 w$(w+1) = "r " + t$
  103. 950 w$(m) = "u " + f$ + "*" + left$(a$,1) + str$(w+1) + "*" + b$ + str$(w)
  104. 960 w$(0) = str$(w+2)
  105. 970 print "vielen dank. ich habe was neues gelernt."
  106. 980 :
  107. 985 rem"  [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  108. 986 [143]"  peek    abspeichern (1000)     peek
  109. 987 rem"  [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  110. 990 :
  111. 1000 [159] 2,8,15,"s:tierliste"
  112. 1010 [159] 1,8,2,"tierliste,s,w"
  113. 1020 [129] z [178] 0 [164] ([197](w$(0)))
  114. 1030 : [152]1, w$(z)
  115. 1040 [130] z
  116. 1050 [160] 1: [160] 2
  117. 1060 :
  118. 1070 :
  119. 1075 [143]" orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  120. 1076 rem" [194]    noch einmal (1100)     [194]
  121. 1077 [143]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  122. 1080 :
  123. 1100 input "soll ich noch ein tier raten (ja/nein) "; a$
  124. 1110 if left$(a$,1) = "j" then 300
  125. 1120 if left$(a$,1) = "n" then end
  126. 1130 goto 1100
  127.